a 


Bas 


FFFFFFFFFRFFFFE 000000000 RRRRRRRRRRRR RRRRRRRRRRRR TITTTTTTTTTTTTT LLet 
FFFFFRFFRRFFFFE 000000000 RRRRRRRRRRRR RRRRRRRRRRRR TITTTTTTTTTTTFT Lie 
FFFFFRFRRRFFFFFE 000000000 RRRRRRRRRRRR RRRRRRRRRRRR TITTTTITTTTTTTT §=LtL 
FFF 000 000 RRR RRR RRR RRR TTT LLL 
FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 
FFFFFFFFFFFF 000 000 RRRRRRRRRRRR RRRRRRRRRRRR TTT LLL 
FFFFFFFFFFFE 000 000 RRRRRRRRRRRR RRRRRRRRRRRR TTT LLL 
FFFFFFFFFFFF 000 000 RRRRRRRRRRRR RRRRRRRRRRRR TTT LLL 

FFF 000 000 RRR RRR RRR = RRR TTT LLL 

FFF 000 000 RRR RRR RRR = =RRR TTT LLL 

FFF 000 RRR RRR RRR = RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 0 000 RRR RRR RRR RRR TTT LLL 

FFF 000000000 RRR RRR RRR RRR TTT LLLLLLLLLLELLLL 
FFF 000000000 RRR RRR RRR RRR TTT LLLLLLLLLLELLLL 
FFF 000000000 RRR RRR RRR RRR TTT LLLLELLLLLLLLLL 


) 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 


LOL LL LL LL LL LL LL LO LO LP LO LL LL LL 
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FFFFFFFFFE 000000 RRRRRRRR RRRRRRRR CCCCCCCC «= EEEEEEEEEE 
FFFFFFFFFE 000000 RRRRRRRR RRRRRRRR Cccccccc = EEEEEEEEEE 
FF 00 0O RR RR RR RR CC EE 
FF 00 RR RR RR RR CC EE 
FF 00 0O RR RR RR RR CC EE 
FF 00 00 RR RR RR RR CC EE 
FFFFFFFF 00 00 RRRRRRRR RRRRRRRR cc EEEEEEEE 
FFFFFFFF 00 00 RRRRRRRR RRRRRRRR cc EEEEEEEE 
FF 00 00 RR RR RR RR cc EE 
FF 00 00 RR RR RR RR cc EE 
FF 00 R RR RR RR CC EE cece 
FF 00 00 RR RR RR RR cc EE eeee 
FF 000000 RR RR RR RR CCCCCCCC «=EEEEEEEEEE eee 
FF 000000 RR RR RR RR Cccccccc  EEEEEEEEEE eee 
‘ 
SSSSSSSS DDDDDDDD LL 
SSSSSSSS DDDDDDDD LL 
SS dD DD LL 
SS DD DD LL 
$$ DD DD LL 
SS DD DD LL 
SSSSSS DD DD LL 
SSSSSS dD DD LL 
SS 0D DD LL 
SS DD DD LL 
SS DD DD LL 
SS DD DD LL 
SSSSSSSS DDDDDDDD LLLLLLLLLL 
SSSS DDDDDDDD LLLLLLLLLL 


ee] 
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MODULE RCEDEF IDENT °1-001"; Sb RFA Cache Entry secte serenreven 
File: FORRCE.SDL, Edit: SBL100 


PRR RAARAAAAAAAAALAALALLALA SALAS ALAA RAL SALAS SALAS AAAS AR AA ARAL EAA A RRA ARES SO 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE aS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE ~_ as THE 


e 

® 

® 

a 

* 

® 

® 

® 

LUSION OF THE SOFTWARE. OR OTHER * 
COPIES, THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY © 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
TRANSFERRED. * 
® 

THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
CORPORATION. ‘ 
® 

® 

® 

* 

® 

® 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


e#eeee eee eee e eee eeeeaene 


| 
| 
| 
| 
| 
} 
PARAAAAAAAZALALALALALAELLS ALLELE SERRE LER E SARE SARA S AREAS ARR SAR EASA ASA ARRAS AR ARES 
Author: Steven B. Lionel, 2-June-1983 
1-001 = Original. SBL 2-June-1983 | 
| 


An RFA Cache Entry (RCE) contains information about previous records 

in the file for use by FORSBACKSPACE, which implements the FORTRAN 
BACKSPACE statement. 

w 


for + py organization and access disk files, each time a new record 
is read or written, an entry is added to the RFA cache. The cache itself 

is a circularly-linked list. established when the file is opened. 

AGGREGATE RCE_STRUCT STRUCTURE PREFIX RCE_ MARKER RCE_; 

CONSTANT CACHE_SIZE EQUALS 20; /* Number of entries in cache 

NEXT rset te /* Pointer to next entry 


PREV ADDRESS /* Pointer to previous entry 
LOG “UNION, LONGWORD UNSIGNED; /* Logical record number tor this entry 


RFATUN UN 
RFA Q word estes ED; /* RFA for this entry 
RFA_ Sihy CT STRUCTU 
LONGWORD vONS IGNED: /* First 4 bytes of RFA 
RrAG — UNSIGNED; /* Last 2 bytes of RFA 


yay af ot 
eND FA CrRUCT 
END RFA_UNION; 


FORRCE.SDL;1 


END RCE STRUCT; 
END_MODULE RCEDEF ; 
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